Sub Main
    xsh.Screen.Synchronous = true
    xsh.Screen.WaitForString "008"
    xsh.Screen.Send ":"
    xsh.Session.Sleep 100
    xsh.Screen.Send "004"
    xsh.Screen.Send VbCr
    xsh.Session.Sleep 100
    xsh.Screen.Send VbCr
    xsh.Screen.WaitForString "USERNAME"
    xsh.Screen.Send "usernameXXX"
    xsh.Session.Sleep 100
    xsh.Screen.Send VbCr
    xsh.Screen.WaitForString "password"
    xsh.Screen.Send "passwordXXX"
    xsh.Screen.Send VbCr
End Sub